home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Games Collection 1
/
software vault.zip
/
software vault
/
CDR10
/
SPX20.ZIP
/
SPX_INT.ZIP
/
SPX_GEO.INT
< prev
next >
Wrap
Text File
|
1993-09-14
|
1KB
|
38 lines
Unit spx_geo;
{$X+,O+ }
{ SPX Library Version 2.0 Copyright 1993 Scott D. Ramsay }
Interface
Uses spx_vga,spx_fnc;
type
Pmorph = ^Tmorph;
Tmorph = object
gofsx,gofsy,ts,
gv_width,gv_height : byte;
gmx,gmy,gsx,gsy,
hvx,hvy,
smapx,smapy : integer;
constructor init(geomx,geomy,gvw,gvh,scrx,scry:integer);
destructor done; virtual;
function geomap(x,y:integer):integer;virtual;
procedure drawmap(vx,vy:integer);virtual;
procedure drawmap_n16(vx,vy:integer);virtual;
procedure placegeo(x,y,geonum:integer);virtual;
procedure nogogeo(x,y:integer);virtual;
procedure pre_map; virtual;
procedure post_map; virtual;
end;
PHexMorph = ^THexMorph;
THexMorph = object(Tmorph)
oddy,oddx,eveny,evenx : integer;
constructor init(geomx,geomy,gvw,gvh,scrx,scry:integer);
procedure drawmap(vx,vy:integer);virtual;
procedure drawmap_n16(vx,vy:integer);virtual;
end;
function loadGMP(f:string;var piclist,map):integer;